subroutine terminal_msg2(str1,str2)
  implicit none
  character :: str1*(*),str2*(*)

900 format(a,1x,a)

  print 900,trim(adjustl(str1)),trim(adjustl(str2))

  return

end subroutine terminal_msg2
